home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / mac / LOGIC Apple II 5.25" Library - ProDOS / PRO088A.dsk / STARTUP.YY.bas < prev    next >
BASIC Source File  |  2012-02-16  |  991b  |  20 lines
  1. 90 XN =  PEEK( -16384) -128
  2. 92  IF XN = 32  THEN  PRINT  CHR$(4);"RUN INSTAL2"
  3. 95  IF XN = 80  OR XN = 112  THEN  PRINT  CHR$(4);"RUN PRINTCOMP"
  4. 96  IF XN = 74  OR XN = 106  THEN  CALL  -1998: PRINT  CHR$(4);"RUN V.JOKE"
  5. 100  IF  PEEK( -16384) -128 = 27  THEN  POKE  -16388,0: GOTO 250
  6. 110  POKE  -16384,200
  7. 120  HOME : HGR : POKE  -16302,0
  8. 130  PRINT  CHR$(4)"BLOADYO.YO.DUCK.LOGO"
  9. 140  POKE 770,173: POKE 771,48: POKE 772,192: POKE 773,136: POKE 774,208: POKE 775,5: POKE 776,206: POKE 777,1: POKE 778,3: POKE 779,240: POKE 780,9: POKE 781,202
  10. 150  POKE 782,208: POKE 783,245: POKE 784,174: POKE 785,0: POKE 786,3: POKE 787,76: POKE 788,2: POKE 789,3: POKE 790,96: POKE 791,0: POKE 792,0
  11. 160  READ I,J: IF J = 0  THEN 190
  12. 170  POKE 768,I: POKE 769,J: CALL 770
  13. 180  GOTO 160
  14. 190  REM 
  15. 200  DATA  87,100,103,50,78,50,87,100,103,250,0,0
  16. 210  PRINT  CHR$(4)"BLOAD SHAREWARE,A$4000"
  17. 220  PRINT  CHR$(4)"BLOAD CURTAIN"
  18. 230  CALL 768
  19. 240  FOR I = 1 TO 1750: NEXT I
  20. 250  PRINT  CHR$(4)"RUN HELLO2"